home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / cd-sup / hippoplayer / arexx / playnext.hip < prev    next >
Internet Message Format  |  1998-05-24  |  1KB
  1. From N.Goers@Art-line.de Mon, 10 Jun 97 13:50:04 GMT
  2. X-SystemInfo: PCUF2: EMail
  3. X-Message-No: 77 (database)
  4. From: Nils Goers <N.Goers@Art-line.de>
  5. To: kpk <kpk@pcuf.fi>
  6. Subject: PlayNext.Hip
  7. Date: Tue, 10 Jun 97 15:50:00
  8. Message-ID: <zp5bbeaF6jEUZ24@n.goers.art-line.de>
  9. Return-Path: <N.Goers@Art-line.de>
  10. Received: from oxygen.technet.net (oxygen.technet.net [195.80.199.1])by pcuf.fi (8.8.5/8.8.5/1.14) with ESMTP id SAA06071for <kpk@pcuf.fi>; Wed, 11 Jun 1997 18:27:07 +0300
  11. Received: from Art-line.de (uucp@localhost)by oxygen.technet.net (8.8.5/8.8.5) with UUCP id RAA25951;Wed, 11 Jun 1997 17:28:08 +0200 (MEST)
  12. Cc: k-p@a31b.mtalo.ton.tut.fi
  13. X-Mailer: Zodiac's Point 37.217 [REGISTERED 0024]
  14. Mime-version: 1.0
  15. X-Gateway: ZCONNECT UE uuart.art-line.art-line.de [PolyNet zTOr V5.111 Serie: "retrax"]
  16. X-ZC-VIA: 19970610150425S+2@art-line.de
  17. X-ZC-Post: ueber PM zu erfragen
  18. X-No-Archive: Yes
  19. Status:   
  20.  
  21. Dear Kari-Pekka,
  22.  
  23. i made this script for a guy who ask about in an german newsgroup.
  24.  
  25. You can include it into your archive, if you like.
  26.  
  27. /*
  28. *** HippoPlayer - plays next song from list
  29. *** Written 1997 by Nils Goers (no rights reserved)
  30. */
  31.  
  32. OPTIONS RESULTS
  33.  
  34. address HIPPOPLAYER
  35.  
  36.  
  37. GET NFIL            /* Maximale Anzahl der Module */
  38. maxmod = result
  39.  
  40. GET CFIL            /* Wo befindet man sich im Moment? */
  41. current = result
  42.  
  43. CHOOSE current+1
  44.  
  45. IF current+1 > maxmod then exit
  46.  
  47. play
  48. /*EOS*/
  49.  
  50.  
  51. Regards,
  52.  Nils
  53.  
  54.